
(defun  chez-template()
  "chez scheme template cmd"
  (interactive)
  (let ((cmd
         (format
          "template.ss"
          )))
    (shell-command-on-region (region-beginning) (region-end) cmd nil "REPLACE" nil t)))